
10 defdbl a-z : width lprint 255 : goto intro 

15 main: rem Main Menu V4C tttttttttttttttttttttttttwwttttttttttttttttt 
20 tcost=0: tret-0:clearw 2:color l:gotoxy 0,0 


30 ? 

“MAINTENANCE 

REPORTS 

POINT OF SALE 

LABELS" 

40 ? 

Add Inventory 

Inventory 

Sale 

Vendor" 

50 ? 

Add Vendor 

8y Vendor 

Returned Stock 

Account 

60 ? 

Add Account 

8y Group 

Totals 

Part" 

70 ? 

Edit Inventory 

Price List 

Quote" 


80 ? 

Edit Vendor 

Re-order List 

Close Out Day" 


90 ? 

Edit Account 

Turn Reports 

Cash Register" 


100 ? 

Purchase Order 

Sales Reports" 



110 ? 

Receiving 

Vendor List" 



120 ? 

Credit Account 

Accounts List" 



130 ? 

System Setup 

Statements" 



140 ? 

" Reserved 

Expenses" 



160 ? 

Exit Program" 





890 color 2 : f or w%=l to 32 : read x% , y% , k$ : gotoxy x%,y%: ? k$ 

900 next:restore 

910 data 0,1,A,0,2,8,0,3,C,0,4,D,0,5,E,0,6,F,0,7,G,0,8,H,0,9,I 
920 data 0,10, J,0,11 J K 1 0,12,L 

930 data 20,1,9,20,2,0,20,3,8,20,4,8,20,5,1,20,6,0,20,7,9 

940 data 20, 8, H, 20, 9, X, 20, 10, Y, 20, 11, Z 

950 data 40,1,1,40,2,2,40,3,3,40,4,4,40,5,5,40,6,6 

960 data 60,1,7,60,2,8,60,3,9 

961 k$ : " ” 

970 while len(k$)=0 
980 k$=inkey$ 

990 gotoxy 32,22:? date$;" " ; time$ 

1000 wend 

1010 k$-lower$(k$) 

1020 x%=instr( 'abcdef ghi jklpqrstuvwxyzl23456789" , k$) 

1030 if asc( k$)=15 then gosub ocr:goto main 
1040 if asc( k$)- 12 then goto lockout 
1050 if asc(k$)=9 then goto lastinv 
1060 quote%-0: if x%=27 then quote%=i 
1070 if x%=29 then quote%=-l 
1080 if x% ; 0 then goto main 
1090 if x%<12 then rf lag%=l 

1100 on x* goto adin, adven, adacc, edin, edvn, edac, purchase, receive, credacc, syssetup, dshell, quit 

1110 on x%-12 goto allinv, veninv, pginv, plinv, rolist, turn, sales, vlist, alist, state, expenses 

1120 on x%-23 goto sale, rtstck, totals, sale, closout, sale 

1130 on x%-29 goto vlabel, alabel, plabel 

1140 goto main 

1150 quit: 

1160 end 

1161 dshell: 

1162 goto main 

1170 lastinv: 

1171 char%=0:a$="lastinv.dat"+chr$(0): mode=0 : b$= " " : c = 1 

1172 f open : 

1173 hd%=G£MD0S(Bfh3d ,peek(varptr(a$)), mode ) 

1174 fread: 

1175 while char%<>12 

1176 ptr:peek(varptr(b$)) 

1177 c%;GEMD0S(&h3f,hdM,Ptr) 

1178 char*:peek(ptr)/16777216 

1179 fprn: 

1180 c»:GEHD0S(4h05, chart) 

1181 wend 

1182 fclose: 

1183 c%=GEMD0S(&h3c , hd% ) 

1189 goto main 

1190 ocr:for w%=l to 5:out 1 ,w%: next: return 
1210 sale: rem sale 

1230 clearw 2: qotoxv 0,0:?"Sale (Enter 0 to Return to Me nul" 


1250 

1270 

1290 

1310 

1330 

1350 

1370 

1390 

1410 

1430 

1450 

1470 

1490 

1510 

1530 

1550 

1570 

1590 

1610 

1630 

1650 

1670 

1690 

1700 

1710 

1730 

1750 

1770 

1790 

1810 

1830 

1850 

1870 

1890 

1910 

1930 

1950 

1970 

1990 

2010 

2030 

2050 

2070 

2072 

2074 

2090 

2110 

2111 

2130 

2150 

2151 

2152 

2153 

2154 

2155 
2170 
2190 
2210 
2230 
2250 
2252 

2270 

2271 
2290 
2310 
2312 


if quote%>0 then gotoxy 0,0:?"Quote" 

gotoxy 0,2: input "Salesperson #” ;spn:st=0: ttol=0:acc%=0: term$="Cash" 
if spn< 1 or spn>30 then goto main 
rf lag%=l : if quote*<0 then goto 1650 

input "Account Prefix” ;acc$ :prf$=acc$:if len(prf$)>0 then goto 1370 
an$: "Cash” :aa$-“":aa2$:’"':ac$ : "":as$: , "':az$:'"':act$ : "“: goto 1570 
if prf$:"+" then rf lag%=2:goto adacc 

if rf lag%-2 then record%=record%-l : acc%=record% : acc$=prf $ : goto 1450 
input "Account 4";acc*:record*:acc* 

if acc*<l then input "Account Name” ;temp$:rf lag%=l :goto findac 
if record%<l then record*:! 

f ile$=prf$+” ,aco“ :0PEN "R" , #3 , f i le$ , 226 : gosub accfld 


get #3, record* 
gosub cnvrtacctclose 43 
if record*<l then goto 1230 
acc*:record* 

clearw 2 : gosub accscr:gosub pracc: input "P.0.4";pon$ 
gotoxy 0 , 1 7 : ? " I s this correct?";:x*:inp(2) 
if x*<>89 and x*<>121 then goto main 
gosub geninv 

clearw 2 : gotoxy 0 , 0 : ? "Sale (Press Return to end)" 
if quote*>0 then gotoxy 0,0:?"Quote" 

gotoxy 0,2: input "Item Prefix" ;prf $: if len(prf$)<l then goto fininv 

record*:0:if prf$:"\" then gosub getpn:goto 1910 

input "Item # ' ; i tem% : record%=item% : if item*>32767 then goto 1650 

if i tesi%< 1 then input "Enter Part Number";temp$:rflag*:l:goto findpart 

if record*<l then record%=l 

file$=prf$+".inv" :0PEN ”R" , *1 ,f ile$, 147:gosub invfid 

get 41, record* 

gosub convert : close 41 

if record*<l then goto 1650 

item*:record* 

if quote*<0 then goto 1910 

clearw 2 : gosub invscr :gosub prinv 

input "How Many";t0$:hm:val(t0$) 

input "Sale Price" ; t0$:pe=val(t0$) 

if pe<0 then pe=price-int( (abs(pe)/100*price)*100)/100 

if len( t0$ )< 1 then pe-price 

?hm;" each at” ; : ?using fd$;pe 

gotoxy 29 , 1 7 : ? " Is this correct?" ; :x%=inp(2) 

if x%<>89 and x*<>121 then goto 1650 

ep=0:ep=hm*pe:if pg>4999 then ttol=ttol+ep 

if quote*<0 then gosub tape : goto 2110 

sn$:"":if pg<9000 then goto 2090 

input "Enter Serial Number ";sn$ 

gosub prpart : if quote*>0 then st-st+ep : goto 1650 

sold=sold4h(ii : tds= tds+ep : qn=qn-hm :st=st+ep 

if prf*=“\" then goto 1650 

gosub wrirec:dtot=dtot+ep:m(0):ffl(0)+cost*hffi 

goto 1650 

getpn: rem get non inventory item tttttttttttttttttttttttttttttttttttt 
clearw 2: ? "Entry For Item Not In Inventory (Press ENTER to Void)" 
sn$=" ” : input "PART NUMBER : " ;par t$ : if len(part$)<l then goto 1650 
input "DESCRIPTION: ”;desc$: input "PRODUCT GROUP: " ;pg 
?: return 

tape: rem register tape part ttttttttttttttttttttttttttttttttttttttttt 
lprint prf$; record*; tab(15) ; : lpr int using fi$;hm; : lprint " @";tab(30); 
lprint using fd$;pe 
return 


geninv: rem generate invoice ummmmmmm*****m*m****** 

open "0", 45, "lastinv.dat" 

lprint cpy$ : lprint cad$ : lprint cad2$: lprint cmis$ 

print 45, cpy$:print 45, cad$:print 45, cad2$:print 45, cmis$ 

if quote*<l then goto 2330 

lprint: lprint tab(35);chr$( 14); "QUOTE": lprint 

print 45, :print 45, spcf 35) ;chr$( 14) : "QUOTE" : Drint 45. :ooto 2370 


2330 lprint.'lpnnt tab(33);chr$(14); "INVOICE #" ; : lprint using fi$;ninv:lprint:lprint 

2332 print #5, :print #5, spc(33 );chr$(14); "INVOICE 4";:print #5, using fi$;ninv:print f 5 , : print #5, 

2370 lprint 

2390 lprint "TO: " ;tab(43) ; "Account 4 " ; acc$ ;acc% 

2410 lprint an$; tab(43) ; "Date ";date$ 

2430 lprint aa$ ; tab(43) ;"Salesperson 4”;spn 
2450 lprint aa2$; tab(43) ; " P.0, or Auth,:";pon$ 

2470 lprint ac$;\ " ;as$ ; " ";az$:lprint act$ 

2490 lprint 

2510 lprint: lprint chr$( 15) 

2530 lprint "ITEM” ; tab( 15) PART NUMBER" ; tab(35) ; "SERIAL tab{46) ; “DESCRIPTION" ; 

2550 lprint tab(90) ; "QUANTITY PRICE EACH EXTENDED PRICE” 

2570 for w*:l to 128: lprint " = : next : lprint 

2571 print #5, 

2572 print #5 , "TO: " ;spc(40) ; "Account 4 ";acc$;accl 

2573 print #5, an$;spc(3) ; "Date ";date$ 

2574 print #5, aa$;spc(3) ; "Salesperson t“;spn 

2575 print #5, aa2$;spc(3);"P.O. or Auth. : " ;pon$ 

2576 print #5, ac$;", ”;as$;" az$ : print #5, act$ 

2577 print 15, 

2578 print 45,:print 15, chr$(15) 

2579 print #5, "ITEM" ;spc(ll) ; "PART NUMBER" ;spc(9) ; "SERIAL ; spc ( 3 ) ; " DESCRI PTION" ; 

2580 print #5, spc(33) ; "QUANTITY PRICE EACH EXTENDED PRICE” 

2581 for w*:l to 128;print #5, next : print 15, 

2590 return 

2610 prpar t : rem print part to invoice 

2630 lprint prf $ ; record% ; tab{ 15) ; par t$ ; tab( 35) ; sn$ ; tab(46) : desc$ ; tab(88) ; 

2650 lprint using ff$;hm;:lprint using fd$;pe; : lprint " 

2670 junk$=str$(record%) : lprint using f d$ ;ep : w%= 14-( len(prf $)+len( junk$ ) ) 

2672 tl%-20-len(part$) :t2%=ll-len(sn$): t3%=42-len(desc$) 

2675 ? #5, prf$;record%;spc(w%) ;part$;spc( tl%) ;sn$;spc(t2%) ;desc$;spc( t3%) ; 

2677 ? #5, using f f $ ; hm; : ? #5, using fd$;pe;:? #5, " 

2679 ? #5, using f d$ ; ep : return 

2690 fininv: re® finish invoice *******ummmmmm**************** 

2750 clearw 2:gotoxy 0 , 0 : ? " T a x Rate ?";:x%=inp(2):?chr$(x%);" : 

2770 temp%=x%-48 : if temp%<0 or temp$>9 then 1650 
2790 ? using "*.##*“; tr( temp%) *100 

2810 tax=int((tr( temp% )*ttol )*100)/100:if tax+ . 005<tr( temp%)*ttol then tax^tax+.Ol 
2850 total =st+tax 

2870 ?"Amount Due" ; : ?using fd$; total : input "Amount Paid $\amt 
2890 if amt> total then ? "Change";:? using f d$ ; amt-total 
2910 if quote%<0 then goto 2950 

2930 ?"Terms " ; term$ ; : input temp$ : if len(temp$)>0 then term$:temp$ 

2940 ?"Com®ents " ; : input comment$ 

2950 gotoxy 0, 17 : ? "Is This Correct?";:x%=inp(2) 

2970 if x%<>89 and x*<>121 then goto 1650 

2990 if amt>0 then gosub ocr 

3010 if quoteUO then goto ftape 

3020 for w% : l to 128 : lprint " = " ; : next : lprint 

3025 for w$:l to 1 28 : pr i nt #5, :next:print 45, 

3030 lprint "Terms-” ; term$; tab(90) ; "SUB-TOTAL" ; tab( 115) ; 

3050 lprint using fd$;st 

3055 print 45, "Terms-" ; term$ ;spc(64 ) ; "SU8-T0TAL" ;spc( 16) ; 

3056 print 45, using fd$;st 

3070 if tax>0 then lprint tab(90) ; “TAXABLE TOTAL" ;tab(115) ; :print 45, spc(90) ; "TAXABLE TOTAL" ;spc( 12) 

3090 if tax>0 then lprint using fd$;ttol:print 45, using fd$;ttol 

3110 if tax>0 then lprint tab(90) ; "TAX RATE" ; tab(115) ; :print 45, spc(90) ; “TAX RATE" ;spc(17) ; 

3130 if tax>0 then lprint using ".44444";tr(temp%):print 45, using " . 4444#" ; tr( temp%) 

3150 lprint tab(90) ; "TAX" ; tab{ 115);:lprint using f d$ ; tax 
3190 lprint tab(90);"T0TAL";tab(115);:lprint using fd$; total 
3210 lprint tab(90) ; "AMOUNT PAID" ; tab( 115); : lprint using f d$ ; amt 

3212 print #5, spc(90);"TAX";spc(22);:print 45, using fd$;tax 

3213 print 45, spc(90) ; "TOTAL" ;spc(20) ; :print 45, using fd$; total 

3214 print 45, spc(90) ; “AMOUNT PAID";spc(14);:print 45, using f d$ ; amt 

3230 if amt)total then lprint tab(90) ; "CHANGE" ; tab(115) ; :print 45, spc(90) ; "CHANGE" ;spc( 19) ; 

3250 if amtxtotal then lprint using fd$:amt-total:orint 45. usino fdt:a«t.-t.ntai 


3270 bal=0: if amtctotal then bal= total-amt 

3290 lprint tab(90) ; "BALANCE DUE" ;tab(115);:lprint using fd$;bal 

3300 lprint comments 

3302 print #5, spc(90) ; “BALANCE DUE" ;spc(14) ; ;print #5, using fd$;bal 

3303 print 15, comments 

3310 if acc%>0 then lprint "Please remit payment according to terms. Include Account and Invoice numbers on payment." 

3311 if acc%>0 then print #5, "Please remit payment according to terms. Include Account and Invoice numbers on payment. 
3330 lprint chr$(18);chr$(14);”Thank You For Your Business. " : lprint chr$( 12) 

3332 print #5, chr$(18) ; chr$( 14 ); "Thank You For Your Business. " : p r i n t #5, chr$(12):close #5 
3335 if quote%>0 then goto main 

3350 tdt=tdt+total:pd=pd+amt:if amt>total then pd-pd-(amt-total) 

3370 ytd=ytd+total-tax:ptd=ptd+total-tax:if tax>0 then ttd= ttd+ttol 
3390 sp(spn)=sp(spn)+st : tax( temp%) = tax( temp%)+tax 
3410 if acc%>0 then record%-acc% : 1 id$=date$ : prf $=acc$ : gosub wrarec 
3430 if amt>= total then dcs-dcs+st : if tax>0 then dtaxcs-dtaxcs+st 
3450 ninv^ninv+hgosub wrsrec:goto main 

3470 ftape: Rem finish register tape ************************************* 

3490 acc%^0 : lprint:lprint "Subtotal tabf30) ; : lprint using fd$;st 

3510 lprint "Tax" ; tab(30) lprint using f d$ ; tax 

3530 lprint "Total " ; tab(30) ; : lprint using f d$ ; total 

3550 lprint " Paid" ; tab(30) ; :lprint using fd$;amt 

3570 lprint "Change" ; tab(30) ; : lprint using f d$;amt-total : lprint 

3590 lprint cpy$:lprint cad$ : lprint cad2S: lprint cmisS : lprint 

3610 lprint using fi$;ninv; : lprint " Date " ;date$: lprint 

3630 goto 3330 

3890 rtstck: rem return to stock ****************************************** 

3910 clearw 2:?“Return to Stock" rinput ”Prefix";prf$ 

3930 if len(prf $) <1 then goto main 
3950 input "Item tt“;record% 

3970 if record%<l then input “Enter Part Number " ; temp$ : rf lag%=3 : go to findpart 
3990 if recorded then recorded 

4010 f ile$-prf $+" . inv" :0PEN "R“,»l,file$,147:gosub invfld 
4030 get #1 , record% 

4050 gosub convert:close 41 

4070 if recorded then goto main 

4090 clearw 2 : gosub invscr : gosub prinv 

4110 input "How Many" ; t0$ : if len(t0$)>0 then hm=val ( t0$ ) 

4130 if hm<l then goto main 

4150 input " Price t0$ :pe=vai ( t0$ ) : input "Tax Rate" ; t0$ : temp%-val ( t0$ ) 

4170 input "Salesperson #" ; t0$ :spn=val( t0$) 

4190 input "Account Prefix" ; acc$ : if len(acc$)< 1 then goto 4230 
4210 input "Account #" ; t0$ : acc%=val ( t0$) 

4230 ?"Is This Correct ?" ; :x%=inp(2) : if x%<>89 and x%< > 121 then goto main 
4250 ? "Updating Records" :qn=qn+h(n:sold=sold-hm;tl=hm*pe: tds=tds-tl 
4270 ytd=ytd-tl :ptd=ptd-tl : tax-tr ( temp%)*tl : if tax>0 then ttd=ttd-tl 
4290 sp(spn)=sp(spn)-tl :tax( temp%)-tax( temp%)-tax 
4310 gosub wrirec : gosub wrsrec : if len(acc$)<l then goto main 
4330 prf $=acc$ : record%=acc% 

4350 if recorded then recorded 

4370 file$:prf$+".aco":0PEN " R" , #3 , f i le$ , 226 : gosub accfld 

4390 get #3 , record% 

4410 gosub cnvr tacc : close 13 

4430 tdt=tdt-( tl+tax) :gosub wrarec : goto main 

4450 totals: rem totals *************************************************** 

4470 clearw 2:?" Annual Period Today" 

4490 fusing fd$;ytd;ptd;dtot 
4510 x%=inp(2) : goto main 

4530 closout: rem close out day ******************************************* 

4550 clearw 2:?"Are you sure you want to close out day x%:inp(2):?chr$(x%) 

4570 if x%<>89 and x$<>121 then goto main 

4590 lprint "Daily Sales Report", date$:lprint "Cash Sales 

4610 lprint using f d$ ; dcs : lprint "Taxable Cash Sales"; 

4630 lprint using f d$ jdtaxcs: lprint "Total Sales Today 
4650 lprint using fd$ ; dtot : lprint "Cost of Goods Sold"; 

4670 lprint using fd$;m(0) : lprint "Gross Profit "; 

4690 lprint using fd$;dtot-m(0) 


lprint.-lprint "Individual Sales to Date' 1 

for wkl to 30: if sp(w%)=0 then goto 4770 

lprint "Salesperson" ;w%; :lprint using fd$ ;sp(w%) 

next : Iprint chr$(12) :dcs=0:dtaxcs=0:dtot=0:fn(0)=0: gosub wrsrec:goto main 

wrirec: rem write inventory record +++++++++++++++++++++++++++++++++++ 

file$:prf$+".inv":OPEN " R " , tf 1 , f i le$ , 147 : gosub invf ld:gosub setinv 

put #1 , record% : close #1 : return 

wrvrec: rem write vendor record 

file$:prf$+\ven":OPEN “R",i2,file$,180:gosub venf Id : gosub setven 
put #2 , record% : close #2:return 
wrarec: rem write account record 

file$=prf$+" .aco" :0PEN ''R”,lt3,file$,226:gosub accf ldrgosub setacc 
put #3 , record% : close #3 : return 
invscr: rem inventory screen 
COLOR 2 

gotoxy 0,1:? "ITEM ” : ? "PART NUMBER" :? “DESCSI PT ION ":? “LOCATION" 

? ''QUANTITY'':? "ON ORDER":? "COST":? "SALE PRICE”:? "REORDER POINT" 

? "GROUP":? "SOLD":? "AMOUNT":? "G.P.M.V :?"VEND0R #" 

COLOR kreturn 

venscr: rem vendor screen ***M*****************«*****m************ 
COLOR 2 

gotoxy 0,1:? "VENDOR NUMBER" 

? "NAME":? "ADDRESS":? "ADDRESS":? "CITY":? "STATE":? "ZIP";? "COUNTRY" 
color kreturn 

accscr: rem account screen ttttttttttttttttttttttttttttttttttttttttttt 
COLOR 2 

gotoxy 0 , 1: ? "ACCOUNT NUMBER'':? "NAME" :? "OPTION" :? "ADDRESS" 

? "CITY":? "STATE":? "ZIP":? "COUNTRY":? "PURCHASES":? "PAID":? “BALANCE" 
? "LAST INVOICE":? "TERMS" 

COLOR 1 : return 
ininv: 


5530 gotoxy 16 , 2 : 1 ine input iO$:if lenfi0$)>0 then part$= i0$ : if iO$:"*" then return 

5550 gotoxy 16 , 3 : 1 ine input i0$ : if len(i0$)>0 then desc$= i0$ 

5570 gotoxy 16, 4 : line input i0$ : if len( i0$ ) >0 then lc$= i0$ 

5590 gotoxy 15,5: input i0$ : if len(i0$)>0 then qn=val(iO$) 

5610 gotoxy 15,6: input i0$ : if len( i0$) >0 then oo=val( i0$) 

5630 gotoxy 15,7: input i0$:if len(i0$)>0 then cost=val ( i0$) 

5650 gotoxy 15,8: input iO$: if len(i0$)>0 then price-val(iO$) 

5670 gotoxy 15,9: input iO$:if len(i0$)>0 then rp=val{ i0$) 

5690 gotoxy 15,10: input i0$ : if len( i0$ ) >0 then pg=val ( i0$ ) 

5710 gotoxy 15,11: input iO$: if len( i0$)>0 then sold=val(iO$) 

5730 gotoxy 15,12: input iO$: if len(i0$)>0 then tds=val( i0$) 

5750 gotoxy 15,14: input i0$ : if len(i0$)>0 then ven^val(iO$) 

5770 return 


5790 inven: rem input vendor data ***************************************** 
5810 gotoxy 14 , 2: line input i0$ 

5830 if len( i0$ ) >0 then ven$=iO$ : if i0$- then return 
5850 gotoxy 14 , 3 : 1 ine input i0$: if len(i0$)>0 then vna$=iO$ 

5870 gotoxy 14,4:line input i0$ : if len( i0$ ) >0 then vna2$=i0$ 

5890 gotoxy 14 , 5 : 1 i ne input i0$: if len(i0$)>0 then vnc$:i0$ 

5910 gotoxy 14 ,6 : line input i0$: if len(i0$)>0 then vns$:i0$ 

5930 gotoxy 14,7:line input i0$: if len(i0$)>0 then vnz$:iO$ 

5950 gotoxy 14 ,8: line input i0$ : if len(i0$)>0 then vnct$=iO$ 

5970 return 


5990 inacc: rem input account data ttttttttttttttttttttttttttttttttttttttt* 
6010 gotoxy 14,2:line input i0$ 

6030 if len( i0$ ) >0 then an$= i0$ : if i0$-"*" then return 
6050 gotoxy 14 , 3 : line input i0$ : if len(i0$)>0 then aa$=i0$ 

6070 gotoxy 14 , 4: line input i0$: if len(i0$)>0 then aa2$=i0$ 

6090 gotoxy 14,5: line input 10$: if len(i0$)>0 then ac$=iO$ 

6110 gotoxy 14,6: line input iO$:if len(i0$)>0 then as$:iO$ 

6130 gotoxy 14,7: line input i0$; if len(i0$)>0 then az$:iO$ 

6150 gotoxy 14,8: line input i0$: if len(i0$)>0 then act$=i0$ 

6170 gotoxy 11,9: input iO$:if len(i0$)>0 then tdkval(iO$) 

6190 gotoxy 11,10: input iO$:if len(i0$)>0 then pd^val( i0$) 

6210 gotoxy 14,13:line input iO$:if lenfi0$)>0 then termkiOi 


6230 return 

6250 prinv: rem print inventory record to screen ************************* * 

6270 gotoxy 16,1:? prf $ ; record% : gotoxy 16,2:? parts 

6290 gotoxy 16,3:? desc$ : gotoxy 16,4:? lc$ : gotoxy 16,5:? qn 

6310 gotoxy 16,6:? oo:gotoxy 16,7:?using fd$;cost:gotoxy 16,8: ?using fd$;price 

6330 gotoxy 16,9:? rp : gotoxy 16,10:? pg:gotoxy 16,11:? sold 

6350 gpm=0: if cost>0 and price>0 then gpm= ( int((l-(cost/price) )*1000) )/10 

6370 gotoxy 16 , 12 : ?using f d$ ; tds : gotoxy 16,13:? gpm : gotoxy 16,14:? ven 

6390 return 

6410 prven: rem print vendor record to screen ***************************** 

6430 gotoxy 14,1:? prf $; record% 

6450 gotoxy 14,2:? ven$ : gotoxy 14,3:? vna$:gotoxy 14,4:? vna2$ 

6470 gotoxy 14,5:? vnc$:gotoxy 14,6:? vns$:gotoxy 14,7:? vnzS 
6490 gotoxy 14,8:? vnct$ : return 

6510 pracc: rem print account record to screen **************************** 

6530 gotoxy 14,1:? prf $ ; record% 

6550 gotoxy 14,2:? an$ : gotoxy 14,3:? aa$ : gotoxy 14,4:? aa2$ 

6570 gotoxy 14,5:? ac$ : gotoxy 14,6:? as$ : gotoxy 14,7:? az$ 

6590 gotoxy 14,8:? act$ : gotoxy 14,9:?using f d$ ; tdt 

6610 gotoxy 14 , 10: ?using fd$;pd:gotoxy 14 , 1 1 : ?using fd$;tdt-pd 

6630 gotoxy 14,12:?lid$: gotoxy 14,13: ?term$ : return 

7330 adin: rem add inventory ********************************************** 

7350 gosub adintit: input "Enter Prefix" ;prf $: if lenfprf $)<1 then goto main 
7370 input “Enter Item Number" ;record%:if recorded then goto main 
7390 file$:prf$+''.inv“:0PEN "R",#l, file$, 147:gosub invfld 
7410 get tl,record%:gosub convert 

7430 if partSo" " then record%=record%+l : goto 7410 

7450 gosub clrpr t : gosub adintit: gosub invscr :gosub prinv 
7470 gosub ininv: if part$-"*" then close #l:goto main 
7490 gosub adintit: gosub invscr : gosub prinv 
7510 gotoxy 0, 17 : ?" Is this correct?" ; :x%=inp(2) 

7530 if x%<>89 and x»<>121 then 7450 

7550 gosub setinv : pu t #1, record* :record*:recordUl: goto 7410 

7570 adintit: clearw 2:gotoxy 0,0:?“ADD INVENTORY “: return 

7590 adven : rem add vendor *********************************************** 

7610 gosub adventit:input “Enter Prefix" ;prf $ : if len(prf$)<l then goto main 

7630 input "Enter Vendor Number " ; record% : if recorded then goto main 

7650 file$:prf$+".ven":0PEN "R“,#2,file$ , 180 :gosub venfld 

7670 get #2, record*: gosub cnvrtven 

7690 if vns$<>" “ then record%=record%+l :goto 7670 

7710 gosub clrven : gosub adventi t :gosub venscngosub prven:gosub inven 

7730 if ven$:“*'' then close #2 : goto main 

7750 gosub adventit: gosub venscngosub prven 

7770 gotoxy 0 , 17 : ? " Is this correct?" ; :x%-inp(2) 

7790 if x*<>89 and x*<>121 then 7710 

7810 gosub setven : put #2 , record% : record%-record%+l : goto 7670 

7830 adventit: clearw 2 : gotoxy 0,0:?“ADD VENDOR" : return 

7850 adacc: rem add account *********************************************** 

7870 gosub adacti t : input “Enter Prefix" ; prf $ : if len(prf$)<l then goto main 

7890 input “Enter Account Number" ; record% : if recorded then goto main 

7910 file$-prf$+”.aco":0PEN "R“ , #3 , f ile$ , 226 : gosub accfld 

7930 get #3, record% : gosub cnvrtacc 

7950 if as$<>" " then record$-recordUl:goto 7930 

7970 gosub cl race : gosub adacti t : gosub accscngosub pracc:gosub inacc 

7990 if an$:''*" then close #3 : on rflag* goto main, 1390 

8010 gosub adactit:gosub accscngosub pracc 

8030 gotoxy 0 , 17 : ? “ Is this correct?"; :x%-inp(2) 

8050 if x%<>89 and x%<>121 then goto 7970 
8070 gosub setacc:put #3, record%:record%=record%+l :goto 7930 
8090 adactit: clearw 2 : gotoxy 0,0:? "ADD ACCOUNT": return 
8110 invfld: rem setup buffer for inventory record 

8130 field 11,15 as t0$,40 as tl$,8 as t2$,8 as t3$,8 as t4$,8 as t5$,20 as t6$,8 as t7$,8 as t8$,8 as t9$,8 as tl0$,8 as tll$ 
8150 return 

8170 setinv: rem fill output buffer ************************************** 

8190 lset t2$-mkd$(qn) : lset t3$-mkd$(oo):lset t4$=mkd$(cost) 

8210 lset t8$:mkd$fpq):lset t9$:mkdifsold):lset tl 14rmkd4ft.d<d 



8230 lset tl0$-mkd$(ven):lset tO$:part$:lset tl$-desc$: Iset t6$^lc$ 

8250 lset t7$=fflkd$(rp) : lset t5$-mkd$(price) 

8270 return 

8290 convert: rent get data from buffer ************************************ 

8310 part$:“ “ : lc$ =par t$+ 11 ":desc$-lc$+lc$ 

8330 lset part$:t0$:lset desc$-tl$: lset lc$= t6$ 

8350 qn=cvd(t2$):oo=cvd(t3$):cost=cvd(t4$):price=cvd(t5$):rp-cvd(t7$) 

8370 pg-cvd( t8$) :sold=cvd(t9$): tds=cvd( tl 1$) : ven=cvd( tl0$) 

8390 return 

8391 clrprt: rem clear parts buffer *************************************** 

8392 par t$= " " : lc$=par t$+ " " :desc$=lc$+lc$ 

8393 qn ; 0 : oo=0 : cost^O: price=0:rp=0:pg=0:sold=0: tds=0 : ven-0 : return 

8410 venfld: rem setup field for vendor record **************************** 

8430 field #2, 40 as ti$, 40 as t2$, 40 as t3$, 20 as t4$, 5 as t5$, 15 as t6$, 20 as t7$ 

8450 return 

8470 setven: rem fill output buffer *************************************** 

8490 lset tl$-ven$ : lset t2$-vna$ : lset t3$=vna2$ : lset t4$=vnc$ 

8510 lset t5$=vns$ : lset t6$=vnz$ : lset t7$-vnct$ 

8530 return 

8550 cnvrtven: rem get data from buffer *********************************** 

8570 vns$:” " : v n z $ - " " : vnc$ ^vnz$+vns$ : ven$=vnc$+vnc$ 

8590 vna$:ven$:vna2$:ven$:vnct$:vnc$ 

8610 lset ven$=tl$ : lset vna$- t2$ : lset vna2$=t3$: lset vnc$: t4$: lset vns$=t5$ 

8630 lset vnz$= t6$ : lset vnct$=t7$ 

8650 return 

8651 clrven: rem clear vendor buffer ************************************* 

8652 vns$:“ ":vnz$:" ":vnc$:vnz$+vns$:ven$:vnc$tvnc$ 

8653 vna$=ven$ :vna2$=ven$:vnct$=vnc$: return 

8670 accfld: rem setup field for account record *************************** 

8690 field #3,40 as t0$,40 as tl$,40 as t2$,20 as t3$,5 as t4$, 15 as t5$,20 as t6$,8 as t7$,8 as t8$,10 as t9$,20 as tl0$ 
8710 return 

I 

8730 setacc: rem fill output buffer *************************************** 

8750 lset t0$=an$ : lset tl$=aa$: lset t2$-aa2$ : lset t3$-ac$:lset t4$=as$ 

8770 lset t5$=az$ : lset t6$=term$: lset t7$-mkd$(tdt):lset t8$*mkd$(pd) 

8790 lset t9$=lid$:lset tl0$=act$ 

8810 return 

8830 cnvrtacc: rem get data from buffer *********************************** 

8850 as$:" " : lid$=as$+as$ : az$=l id$+as$ :ac$- lid$+l id$ : art$=ac$+ac$ 

8870 aa$-an$:aa2$-aa$:act$=ac$:term$=ac$ 

8890 lset an$= t0$ : lset aa$-tl$:lset aa2$= t2$ : lset ac$= t3$ : lset as$=t4$ 

8910 lset az$=t5$ : lset term$= t6$ : lset 1 id$=t9$ : lset act$=tl0$ 

8930 tdt=cvd(t7$):pd=cvd(t8$) 

8950 return 

8951 clracc: rem clear account buffer************************************* 

8952 as$=” " : lid$^as$+as$ : az$= 1 id$+as$ : ac$: 1 id$+l id$ : an$^ac$+ac$ 

8953 aa$:an$:aa2$:aa$:act$:ac$:term$:ac$ 

8954 tdt=0:pd=0:return 

8970 intro: rem intro screen and get sys data ***************************** 

8990 ON ERROR GOTO 24260 

9010 dim sp(30),c(28):ff$:"#######.##" :fi$-"##########":fd^" $$########.##" 

9030 xmem%:14000:if fre(0)>500000 then xmem%:32767 
9050 dim srt$(xmem%) ,srt%(xmem%) 

9070 fullw 2:clearw 2 : color l:gotoxy 0,5:?tab(37);"SBM ST":? 

9080 ?tab(35) ; "Version 4C" 

9090 color 2: ?tab(30) ;chr$(189) ; " Copyright 1986-91" 

9110 color 3:?tab(32); "Newell Industries" 

9130 color 1: input "Insert Data Disk, Press Return” ; i0$ 

9150 open "I", #4, "setup.dat" 

9170 input#4,cpy$,cad$,cad2$,cmis$,dait$,ninv,npo,dtaxcs,dcs,dtot,ttd,ptd,ytd 

9190 for w^0 to 10: input#4, temp:m(w%) =temp: next 
9210 for w%^0 to 9: input#4, temp: tr(w%) = temp : next 
9230 for w%-0 to 9:input#4,temp:tax(w%)=temp:next 
9250 for wt:l to 30:input#4,temp:sp(w%)=temp:next 

9260 close #4 

9261 open "I", #4, "expense.dat” 

9265 for w%:0 to 28:input#4,c(w$):next 


9270 close #4 

9290 ? "Todays Date (mm-dd-yy) " ;date$; : input t0$ 

9310 if len( t0$) <1 then goto 9360 
9330 if len(t0$)<>8 then goto 9290 
9350 date$= t0$ 

9360 ? "Time (hh:mm:ss)";time$; : input t0$ 

9365 if len(t0$)<l then goto 9380 
9375 time$= t0$ 

9380 gosub wrsrec:goto main 

9385 syssetup: rem system setup ******************************************* 
9390 gosub ssscrn 
9410 gosub printss 

9430 gotoxy 0,17:?”(E)dit, (C)ontinue, (R)eturn ? “ ; : x%=inp(2) : k$=chr$(x%) 

9450 if k$:"e" or k$:"E" then gosub inss; goto 9390 

9470 if k$-"c" or k$="C" then goto 9530 

9490 if k$:"r" or k$="R" then goto main 

9510 goto 9430 

9530 gotoxy 0,17:?" Clear Totals ?" ; :x%=inp(2) 

9550 if x%=89 or x%=121 then gosub clrtotals 

9570 gosub wrsrec:goto exitexp 

9590 clrtotals: for w%:0 to 9 : tax( w%) =0 : sp(w% ) =0 : next 

9610 for w% - 10 to 30:sp(w%)=0:next 

9630 dtaxcs=0 : dcs=0 : dto t=0 : ttd=0:ptd=0:ytd=0:return 

9650 ssscrn: rem system setup screen ************************************** 

9670 clearw 2:gotoxy 0,0:? "System Setup" : color 2 

9690 gotoxy 0,2: ?"C0MPANY" : ?"ADDRESS" : ?"ADDRESS" : ?"MISC" : ?"DfiTE“ 

9710 ? “NEXT INVOICE t“:?"NEXT P.0J":?"TAX RATES (0-9)" 

9730 color 1 : return 

9750 inss: rem input system data ****************************************** 
9770 gotoxy 18 , 2 : 1 i ne input t0$: if len ( t0$ ) >0 then cpy$-t0$ 

9790 gotoxy 18 , 3 : 1 ine input t0$ : if len ( t0$) >0 then cad$- 10$ 

9810 gotoxy 18,4:line input t0$: if len (t0$)>0 then cad2$=t0$ 

9830 gotoxy 18, 5: line input t0$ : if len (t0$)>0 then cmis$-t0$ 

9850 gotoxy 16,6:input t0$: if len (t0$)>7 then date$= t0$ 

9870 gotoxy 16 , 7 : input t0$ : if len ( t0$ ) >0 then ninv=val(t0$) 

9890 gotoxy 16,8: input t0$ : if len ( t0$ ) >0 then npo=val ( t0$) 

9910 for wl : 0 to 9 : gotoxy 15,9 

9930 ? w% ? using "#.#####“; tr(w%) ;: input i0$ 

9950 if len(i0$)>0 then tr (w% ) =val ( i0$) 

9970 gotoxy 15,9:?“ ":next 

9990 return 

10010 printss: rem print system data to screen ***************************** 
10030 gotoxy 18,2:? cpy$:gotoxy 18,3:? cad$:gotoxy 18,4:? cad2$ 

10050 gotoxy 18,5:? cmis$ : gotoxy 18,6:? date$ 

10070 gotoxy 18,7:? using f i$ ; ninv : gotoxy 18,8:? using fi$;npo 

10090 gotoxy 0,11 : f or w$:0 to 4:?w$;":";:?using ; tr(w%) , :next: ? 

10110 gotoxy 0 , 12 : f or w%=5 to 9 : ?w% ; “ = ” ; :?using "(t .4ttf###";tr(w%),: next : ? 

10130 return 

10150 wrsrec: rem write setup to disk ************************************** 
10170 open "0" , #4 , "setup.dat" : dai t$=da te$ 

10190 write #4 , cpy$ , cad$, cad2$ ,cmis$ , dai t$ , ninv , npo , dtaxcs , dcs , dtot , ttd , ptd ,y td 

10210 for w*=0 to 10:temp=m(w%):write #4 , temp : next 

10230 for w*=0 to 9: temp=tr(w%) :write #4 , temp : next 

10250 for w% : 0 to 9: temp=tax(w%) :write #4 , temp: next 

10270 for w% ; l to 30: temp=sp(w%) :write #4 , temp: next 

10290 close #4 : return 

10310 edin: rem edit inventory ********************************************* 
10330 gosub edintit: input “Enter Prefix" ;prf$: if len(prf$)<l then goto main 
10350 input "Enter Item Number" ; record^ : temp%=record% 

10370 if tempUl then input "Enter Part Number" ;temp$:rflag%-4;goto findpart 
10390 if record%<! then record%-l 

10410 file$:prf$+".inv":0PEN "R” , #1 , file$ , 147: gosub invfld 
10430 get #1, record* 

10450 gosub convert:close #1 
10470 if record%<l then goto 10310 
10490 gosub edintit: gosub invscr 


10510 gotoxy 0, 17 : ? " (E)di t , (S)ave, (D)elete , (F)orward, (B)ack, (N)ext, (Q)uit"; 
10530 gosub prinv ' 

10550 x%=inp(2):k$-chr$(x%) 

10570 if k$:"e" or k$= "E" then gosub ininv :goto 10490 
10590 if k$ : "s" or k$:"S" then gosub wrireczgoto 10530 
10610 if k$'”f " or k$:“F" then record%=record%+l : goto 10390 

10630 if k$= "b " or k$:”B" then record%=record%-l :goto 10390 

10650 if k$:"n" or k$:"N" then goto 10310 

10670 if k$:"q" or k$= "Q" then goto main 

10690 if k$--"D” then part$=" " :gosub wrirecrgoto 10530 
10710 goto 10550 

10730 edintit: clearw 2 : gotoxy 0 , 0 : ? “Edi t Inventory":return 

10750 edvn: rem edit vendor tttwttttttttttttttttttttttttwttttHttttiitttt 

10770 gosub edvntit : input "Enter Prefix" ;prf $: if ien(prf $)<1 then goto main 
10790 input “Enter Vendor Number" ; record% : temp%=record% 

10810 if tempUl then input "Enter Vendor Name" ; temp$: rf lag%=l : goto findven 

10830 if record%< 1 then record%= 1 

10850 file$=prf$+".ven":0PEN ” R" , f 2 , f ile$ , 180 : gosub venfld 

10870 get #2 , record% 

10890 gosub cnvrtven:close #2 
10910 if record*d then goto 10750 
10930 gosub edvntit : gosub venscr 

10950 gotoxy 0,17:?" (E)dit, (S)ave, (D)elete, (F)orward, (B)ack, (N)ext, (Q)uit"; 

10970 gosub prven 

10990 x%-inp(2):k$=chr$(x%) 

11010 if k$:"e" or k$:"E" then gosub inven : goto 10930 
11030 if k$:"s" or k$= "S" then gosub wrvrec:goto 10970 
11050 if k$-"f " or k$="F“ then record%=record%+l :goto 10830 

11070 if k$ : "c" or k$:"C” then record%-record%+l :goto findven 

11090 if k$:"b“ or k$:"B" then record*=record*-l:goto 10830 

11110 if k$:“n" or k$:"N" then goto 10750 

11130 if k$:"q" or k$="0" then goto main 

11150 if k$:"D” then vns$:"”:gosub wrvrec:goto 10970 
11170 goto 10990 

11190 edvntit: clearw 2 : gotoxy 0 , 0: ? "Edit Vendor“:return 
11210 edac: rem edit account 

11230 gosub edactit: input "Enter Prefix" ;prf $: if len(prf$)<l then goto main 
11250 input "Enter Account Number"; record*: temp*:record* 

11270 if temp*d then input "Enter Account Name" ; temp$ :rflag%=2:goto findac 

11290 if recorded then recorded 

11310 file$=prf$+",aco":0PEN "R" ,#3,f i le$ , 226 : gosub accfld 

11330 get 43, record* 

11350 gosub cnvrtacciclose 43 
11370 if recorded then goto 11210 
11390 gosub edactit : gosub accscr 

11410 gotoxy 0,17:? “ (E)dit , (S)ave, (D)elete, (F)orward, (B)ack, (N)ext, (Q)uit"; 

11430 gosub pracc 

11450 x*-inp(2):k$:chr$(x*) 

11470 if k$:"e" or k$="E" then gosub inacc : goto 11390 
11490 if k$ : "s" or k$:"S" then gosub wrarec:goto 11430 
11510 if k $ - “ f " or k$:"F" then record%=record%+l :goto 11290 

11530 if k$-"c” or k$:"C" then record*-record*-U:goto findac 

11550 if k$:“b" or k$:"8" then record%=record%-l :goto 11290 

11570 if k$:"n" or k$:“N" then goto 11230 

11590 if k$:"q" or k$:"Q" then goto main 

11610 if k$:"D" then as$:"":gosub wrarec:goto 11430 
11630 goto 11450 

11650 edactit: clearw 2 : gotoxy 0 , 0 : ? "Edi t Account“:return 
11670 purchase: rem purchase order ttttttttttttttttttttttuttttttttttttt 
11690 clearw 2 : gotoxy 0,0:?"Purchase Order 4";:?using f i$ ; npo : gotoxy 0,2 
11710 ? " E n t e r Vendor Prefix" ; : input prf$ : if len(prf$)d then goto main 
11730 input "Enter Vendor Number";recordt:temp* : record* 

11750 if temp*d then input "Enter Vendor Name" ; tempi : rflag%=2 : goto findven 
11770 if recorded then record*=l 

11790 f i le$-prf $+ " .ven" : OPEN "R",42,file$,180:gosub venfld 
11810 get 42, record* 



11830 gosub cnvrtven:close #2 

11850 if recordUl then goto 11670 

11870 clearw 2:gosub venscr :gosub prven 

11890 gotoxy 0,17: ?"Is This Correct ?“ ; :x%=inp(2) 

11910 if x%<>89 and xU>121 then goto main 
11930 input "Enter Account Number"; temp$ 

11950 gosub genpo : tot=0 

11970 clearw 2 : gotoxy 0,0:?"Enter Item Prefix" ; : input pr f $ 

11990 if len(prf$)<l then goto 11970 

12010 if prf$:"*“ then goto finpo 

12030 input "Enter Item Number" ;record%: temp%=r6Cord% 

12050 if tempUl then input “Enter Part Number";temp$:rflagU6:goto findpart 
12070 if recordUl then record%=l 

12090 file$:prf$+".inv":0PEN “R" , #1 , file$ , 147 : gosub invfld 
12110 get #l,record% 

12130 gosub convert : close #1 

12150 if recordUl then goto 11970 

12170 clearw 2 : gosub invscr rgosub prinv:hm-0 

12190 ?"0rder How Many" ; : input t0$:hm=val(t0$):if len(t0$)<l then goto 11970 
12210 ? "Cost Each" ; : input t0$ : if len (t0$)<l then pocosUcost:goto 12250 
12230 pocost ; val(t0$) 

12250 gotoxy 0, 17 : ? " Is This Correct ?" ; :x%=inp(2) 

12270 if x%<>89 and x%<>121 then goto 11970 

12290 gosub popart : oo=oo+hm : tot= tot+(hm*pocost) : gosub wr irec : goto 11970 
12310 genpo: rem generate purchase order tttttttttttttttttttttttttttttttttt 
12330 lprint cpy$ : Ipr int cad$ : lprint cad2$: lprint cmis$ 

12350 lprint "Date " ;date$: lprint tab(30) ;chr$( 14) ; "PURCHASE ORDER" 

12370 lprint tab(33) ; : lprint using fi$;npo 

12390 lprint chr$(15) : lprint 

12410 lprint "VENDOR: tab(61 ); "SHIP TO:" 

12430 lprint ven$;tab(61);cpy$ 

12450 lprint vna$;tab(61);cad$ 

12470 lprint vna2$;tab(61);cad2$ 

12490 lprint vnc$;",“;vns$;vnz$ 

12510 lprint vnct$ ; tab(61 ) ; "Account #";temp$ 

12530 lprint , zzzzzzzzzzzzz:zzzzzzzn:zzzizzzzzzz:::zz m 

12550 lprint: lprint "Item" ; tab( 15) ; "Vendor Number" ; tab( 31 ) ; 

12570 lprint "Description" ; tab(74) ; "Quantity" ; tab(87) ; "Price Each" ; tab(99) ; 

12590 lprint "Extended Price" 

12610 for wUl to 112:lprint " = " ; : next : lprint 
12630 return 

12650 popart: rem print part to purchase order mmmmmmmmm* 

12670 lprint prf $ ; record% ; tab( 15) ;part$; tab(31 ) ;desc$; tab(72) ; 

12690 lprint using fi$;hm;tab(83);:lprint using fd$;pocost;tab(98); 

12710 lprint using fd$;pocost*hm 
12730 return 

12750 finpo: rem finish purchase order *********************************** 

12770 clearw 2:input "Terms" ; term$ : input "Discount" ;disc$ :disc=val (disc$) 

12790 if disc<0 then disc=int((abs(disc)/100*tot)*100)/100 
12810 input "Authorized by : " ; t0$ 

12830 input "Shipping Charge " ; sc 
12850 tot-tot+sc:distot ; tot-disc 
12870 for wUl to 112: lprint "-";:next:lprint 

12890 lprint "Terms-" ; term$; tab(70) ; “Shipping" ; tab(98) ;: lprint using fd$;sc 
12910 lprint “Authorization-“;t0$;tab(70);"Subtotal";tab(98);:lprint using f d$ ; tot 
12930 if disc>0 then lprint tab (70) ; "Discou nt " ; tab( 98 ) ; : lpr in t using f d$ ; disc 
12950 lprint tab(70) ; “TOTAL" ; tab(98) ;: lprint using f d$ ; distot 
12970 lprint chr$(18);chr$(12): npo=npo+l : gosub wrsrec 
12990 goto main 

13010 receive: rem incoming inventory ************************************* 

13030 clearw 2 : go toxy 0,0:?"Receiving" 

13050 input "Enter Prefix" ;prf $: if len(prf$)<l then goto main 
13070 input “Enter Item Number" ;recordUtempUrecord% 

13090 if temp%<l then input "Enter Part Number temp$ : rf lag%=5:goto findpart 
13110 if recordUl then recordUl 

13130 file$ : prf$+".inv":0PEN “R\#l. filet. 147:aosub invfld 



13150 get 41, record* 

13170 gosub convert:close ttl 

13190 if recorded then goto 13030 

13210 clearw 2 : gosub invscr :gosub prinv 

13230 input "Quantity Received ” ;hin: Input "Cost Each" jpocost 

13250 if qn+hm< 1 then goto 13330 

13270 ? "Use Cost Averaging ?"; :x%-inp(2) : ?chr$(x%) 

13290 if x%<>89 and xt<>121 then cost^pocost :goto 13330 
13310 cost=(qn*cost+hffl*pocost)/(qn+hm) 

13330 gotoxy 0 , 1 9 : ? " I s This Correct ? " ; :x%=inp(2) 

13350 if x%<>89 and x*<>121 then goto receive 
13370 qn=qn+hm : oo=oo-hm : if oo<0 then oo=0 
13390 gosub wrirec:goto receive 

13410 credacc: rem credit payment to account ****nnn**wuttwtunn* 

13430 clearw 2:gotoxy 0,0:?"Credit Account" 

13450 input "Enter Prefix" ;prf$: if len(prf$)<l then goto main 
13470 input "Enter Account Nuaiber” ; records : temp%-record% 

13490 if templd then input “Enter Account Name" ; temp$ : rf lag%-3 : goto findac 
13510 if recorded then recorded 

13530 file$:prf$+".aco”:0PEN " R“ , 413 , f i le$ ,226 : gosub accfld 
13550 get 43, record* 

13570 gosub cnvrtacc:close 43 

13590 if recorded then goto 13430 

13610 clearw 2 : gosub accscr:gosub pracc 

13630 input "Received $" ; temp 

13650 gotoxy 0,17:?"Is This Correct ?";:xtdnp(2) 

13670 if x%<>89 and x*<>121 then goto credacc 

13690 pd-pd+temp 

13710 gosub wrarec:goto credacc 

13730 invpart: rem print inventory part to report ttttttttttttttttttttttttt 
13750 gpm=0:if cost>0 and price>0 then gpm=( int( (l-(cost/price) )*1000) )/10 
13770 lprint record*;tab(8);part$;tab(24);:lprint using fi$;pg;tab(35); 

13790 lprint using fi$;qn;tab(46); : lprint using fi$;oo;tab(57); 

13810 lprint using fd$;cost;tab(71);:lprint using fd$;price;tab(85); 

13830 lprint using fd$;cost*qn;tab(99); : lprint using fd$;price*qn;tab(119); 

13850 lprint gpm: lprint tab(8);desc$;tab(62);lc$;tab(89);ven 
13870 tcostdcost+(cost*qn):tretdret+(price*qn) 

13890 return 

13910 allinv: rem all inventory report ***tt*tt*twtttttttttttt**tt****tt* 

13930 clearw 2 : gotoxy 0,0:?"Print lnventory":record*:l:temp*d:x* : 0 
13950 input "Enter Inventory Prefix" ;prf $ : if len(prf$)<l then goto main 
13970 clearw 2:?"Sort By":?"ldtem Number" : ? 2=Part Number" : ?"3=Description" 

13990 ?"4:Exit'' ; input "Enter Choice" ; temp$ : xx%=val ( temp$) 

14010 if xxUl or xx%>4 then goto 13970 

14030 srtjdltem Number” : if xx*=2 then srt$=“Part Number" 

14050 if n%-Z then srt$= "Description" 

14070 if xxtd then goto 14510 
14090 if xx*-4 then goto main 

14110 file$-prf$+".inv":0PEN "R",41,file$,147:gosub invfid 
14130 get 41 , record% : srt$( record%) = " 

14150 if xx* ; 2 then lset srt$(record%)=t0$ 

14170 if xx*d then lset srt$(record%)=tl$ 

14190 if left$(t0$,2):" " and lef t$(tl$,2)=“ " then close 41:goto 14230 

14210 record*:record*+l:goto 14130 

14230 record*:recordl-l:acc*:record*:z*d:gosub srt 

14250 lprint chr$(18) ; "Inventory ";prf$;" Sorted By ";srt$;“ Date ";date$; 

14270 lprint tab(60); "page"; tempt: temptdempt+l 
14290 lprint chr$( 15 ) : gosub invheader : x%=0 
14310 file$--prf$t".inv":0PEN "R" , #1 , f ile$ , 147: gosub invfid 
14330 for wt : l to acc% : record%=srt%(w%) 

14350 get 41, record* 

14370 gosub convert 

14380 if lef t$(part$, 2)= “ " then goto 14470 
14390 gosub invpart 

14410 x%=x%+l : if x%<28 then goto 14470 

14430 lprint chr$(12) : lprint chr$f 18) : "Inventory ";orfJ: u Sorted Rv “:ertt-" Date “-natet- 


14450 lprint tab(60) ; "page" ; temp% : temp%- temp%+l : lpr i rtt chr$( 15) :gosub i nvheader : x%-0 
14470 next 

14490 close tthgoto invtot 

14510 file$-prf$+",inv":OPEN "R" , #1 , file! , 147 : gosub invfid 

14530 lprint chr$(18);"Inventory " ; prf $ ; " Sorted By " ; srt$ ; " Date " ;date$; tab(60) ; "page 
14550 lprint temp%: lprint chr$(15) 

14570 gosub invheader 

14590 get #1 , record% : gosub convert 

14610 if lef t$(part$ , 2) = " " and lef t$(desc$ , 2) - " " then close #1 : goto invtot 
14620 if lef t$(part$,2)=" " then goto 14640 
14630 gosub invpart:x%=x%+l 
14640 recordl-recordHl 

14650 if x%>27 then x%=0: temp%= temp%+l : lprint ch r $(12);:goto 14530 
14670 goto 14590 

14690 invtot: ’ total and finish inventory report *********************** 

14710 lprint chr$( i S) ;chr$( 12) 

14730 lprint “Total Cost " ; : lprint using f d$ ; tcost 
1^750 lprint "Total Retail 1 '; : lprint using f d$ ; tret 
U/70 lprint chr$(12):goto main 

14790 invheader: rem inventory header ************************************* 

14810 lprint “Item Part Number" ; tab( 29) ; "Group " ; tab(37) ; "Quanti ty" ; tab(48) ; 

14830 lprint "On Order" ; tab(62) ; "Cost Each" ; tab(75) ; "Price Each" ; tab(89) ; 

14850 lprint "Total Cost" ; tab( 103) ; "Tot Retail tab( 119) ; "GPM” 

14870 lprint " Description" ; tab(62) ; "Location" ; tab(89) ; "Vendor " 

14890 for wwl-1 to 125 : lpri nt : nex t : lprint 
14910 return 

14930 veninv: rem vendor inventory report ************************************ 

14950 clearw 2 : gotoxy 0,0:?"Print Inventory by Vendor" : record%=l : temp%=l :x%=0 

14951 input "Enter Inventory Prefix" ;prf $ : if len(prf$)<l then goto main 

14952 input "Vendor Number “ ; hm 

14953 clearw 2:?“Sort By" : ? " l=Item Number" : ?"2~Part Number”:?"3:Description" 

14954 ?"4=Exit" : input "Enter Choice" ; temp$ : xx%=val ( temp$) 

14955 if xx%< 1 or xx%>4 then goto 14953 

14956 srt$="Item Number" : if xx$:2 then srt$= "Part Number" 

14957 if xx%=3 then sr t$= "Description" 

14958 if xx% - 1 then goto 15010 

14959 if xx%:4 then goto main 

14960 file$:prf$+".inv":0P£N " R" , #1 , f ile$ , 147 : gosub invfid 

14961 get 41 , record% : srt$( record%) = " 

14962 if xx% - 2 then lset srt$(record%)=t0$ 

14963 if xx*-3 then lset srt$( record%)=tl$ 

14964 if lef t$(t0$,2)=" “ and lef t$(tl$,2)=“ ” then close #l:goto 14966 

14965 record%=record%+l : goto 14961 

14966 record%=record%-l :acc%=record%: z%=l :gosub srt 

14967 lprint chr$(18); "Inventory " ;prf $ ; " Vendor " ; hm ; " Sorted 8y ";srt$;“ Date ";date$; 

14968 lprint tab(60) ; "page " ; temp% : temp%= temp%+l 

14969 lprint chr$(15):gosub invheader :x%=0 

14970 file$:prf$*".inv":0PEN “R",il,file$,147:gosub invfid 

14971 for w%=l to acc% : record%=srt%(w%) 

14972 get #1, records 

14973 gosub convert 

14974 if venOhm then goto 14980 

14975 if lef t$(part$,2)=" " then goto 14980 

14976 gosub invpart 

14977 x%=x%+l : if x%<28 then goto 14980 

14978 lprint chr$( 12) : lprint chr$(18); "Inventory " ; prf $ ; ” Vendor" ;hm; " Sorted 8y ";srt$;date$ 

14979 lprint tab(60) ; "page" ; temp%; temp%= temp%+l :lprint chr$(15):gosub invheader :x%=0 

14980 next 

14990 close #l:goto invtot 

15010 file$-prf$+".inv":0PEN "R" , #1 , file* , 147 : gosub invfid 

15030 lprint chr$(18); "Inventory " ;prf $ ; " Vendor";hm:" Sorted By ”;srt$;date$; 

15050 lprint tab(60) ; "page" ; temp% : lprint chr$(15) 

15070 gosub invheader 

15090 get #1 , record^ : gosub convert 

15110 if lef t$(part$,2)=" " and lef t$(desc$ ,2)=" " then close *l:goto invtot 
15120 if left$(oartJ,2):" " then aoto 15160 



15130 if venoh# then record%=record%+l : goto 15090 
15150 gosub invpart :x%=x%+l 
15160 recordt=record%+l 

15170 if x%>27 then x%-0: temp%=temp%+l :lprint chr$( 12) ; .-goto 15030 
15190 goto 15090 

15210 pginv: rem group inventory report ************************************ 

15230 clearw 2 : gotoxy 0,0:?"Print Inventory by Group" : record%=l : tenp%=l :x%=0 

15250 input "Enter Inventory Prefix" ;prf $: if len(prf $)<1 then goto main 

15270 input "Product Group Number"; hit 

15290 f ile$=prf$+" . inv" :0PEN "R',11, file$, 147:gosub invfld 

15310 lprint chr$(18) ; "Inventory Prefix ";prf$;” Group” ;hm; “ Date ";date$; 

15330 lprint tab(60) ; "page" ; temp% : lprint chr$(15) 

15350 gosub invheader 

15370 get #1 , record% : gosub convert 

15390 if lef t$(part$,2)=" " and left$(desc$,2):” " then close #l:goto invtot 

15400 if left$(part$,2)=" " then goto 15440 

15410 if pgohm then record!:record*+l:goto 15370 

15430 gosub invpart:x%=x*+l 

15440 record%-record%+ 1 

15450 if xl>27 then x%=0: temp%=tenip%+l : lprint chr$(12); :goto 15310 
15470 goto 15370 

15490 plinv: rem price list report **************************************** 

15510 clearw 2 : gotoxy 0 , 0 : ? ” Print Price list":record%=l: te«p%=l :x%=0 
15530 input "Enter Inventory Prefix" ;prf $ : if len(prf$)<l then goto main 
15550 clearw 2 : ? "Sort By " : ? " 1 = I tern Number " : ? " 2= Par t Number " : ? "3=Descr iption " 

15570 ?“4=Exit" rinput "Enter Choice" ; temp$ : xx%=val ( temp$ ) 

15590 if xxl<l or xx!>4 then goto 15550 

15610 srt$:"Item Number" : if xx%-2 then srt$= " Part Number" 

15630 if xx!=3 then srt$^ "Description" 

15650 if xx%- 1 then goto 16090 
15670 if xx!^4 then goto main 

15690 file$-prf$+".inv":0PEN "R",il,file$,147:gosub invfld 
15710 get #l,record%:srt$(record%)=" 

15730 if xx% - 2 then lset srt$(record%)=t0$ 

15750 if xx%=3 then lset sr t$( record% ) = tl$ 

15770 if lef t$( t0$, 2) = " " and lef t$( tl$ , 2) = " " then close If 1 : goto 15810 

15790 record!=recordHl:goto 15710 

15810 record%=record%-l : acc%=record% :z%=l:gosub srt 

15830 lprint chr$(18) ; “Inventory ” ; p r f $ ; " Price List Sorted 8y " ; srt$ ; ” Date ";date$; 

15850 lprint tab(60) ; "page" ;temp%: temp%= temp%+l : lprint chr$( 15) 

15870 gosub plheader : x%=0 

15890 f i le$=prf $+ " . i nv" : OPEN "R" , ffl ,f lle$ , 147:gosub invfld 
15910 for «*=1 to acc%: record%=srt%(w%) 

15930 get #1, record! 

15950 gosub convert 
15970 gosub plpart 

15990 x%=x*+l : if x%<55 then goto 16050 

16010 lprint chr$(12) : lprint chr$(18) ; "Inventory “ ;prf $; " Price List Sorted 8y ";srt$;" Date ";date$; 
16030 lprint tab(60) ; “page" ; temp%: lprint chr$(15) : temp%= temp%+l :gosub plheader :x%-0 
16050 next 

16070 close #1 : lprint chr$(18);chr$(12):goto main 
16090 file$:prf$+".inv":0PEN "R",ll,file$,147:gosub invfld 

16110 lprint chr$(18);"Inventory " ; prf $ ; “ Price List Sorted 8y ";srt$;" Date ”;date$; 

16130 lprint tab(60) ; "page" ; temp% : lprint chr$(15) 

16150 gosub plheader 

16170 get HI, record!: gosub convert 

16190 if lef t$(part$, 2)=" " and left$(desc$,2):" " then close *1: lprint chr$(18);chr$(12):goto main 
16210 gosub plpartirecord^recordHl.-x^xHl 

16230 if x%>54 then x%-0: temp%^ temp%+l : lprint chr$( 12) ; : goto 16110 
16250 goto 16170 

16270 plheader: rem price list header ************************************* 

16290 lprint "Item Part Number" ; tab(27) ; "Descr iption " ; tab(75) ; 

16310 lprint "Location" ; tab( 103) Price Each" 

16330 for mm%= 1 to 125:lprint " = : next: lprint 
16350 return 

16370 plpart: rem print price list part *********************************** 


16390 lprint record%;tab(8);part$;tab(27);desc$;tab(75);lc$;tab(99); 

16410 lprint using f d$ ; price 
16430 return 

16450 rolist: rem reorder list ***************wmmmmmmmmm 

16470 clearw 2:gotoxy 0,0:?"Re-order list" : record%=l : temp%=l : x%-0 

16490 input "Enter Inventory Prefix" ;prf $ : if len(prf$)<l then goto main 

16510 file$-prf$+".inv" :0PEN "R" , «1 , f i le$ , 147 : gosub invfld 

16530 lprint chr$(18) ; Inventory Prefix " ;prf $; " Re-order List";'' Date ";date$; 

16550 lprint tab( 60) ; "page" ; temp% : lprint chr$(15) 

16570 gosub roheader 

16590 get #1 , record% : gosub convert 

16610 if lef t$(par t$ , 2) = " " and lef t$(desc$,2) = '* " then close #1 : lprint chr$(18) ;chr$( 12) : goto main 

16630 if qn+oo>=rp then record%=record%+l :goto 16590 

16650 gosub ropart:record*=recordUl:x$:xUl 

16670 if x%>54 then x%-0 : temp%- temp%+l : lprint chr$(12); : goto 16530 

16690 goto 16590 

16710 roheader: rem re-order list header wtttwtttttttttittttiittttttttttttt 
16730 lprint "Item Part Number" ; tab(27) ; "Description" ; tab(75) ; 

16750 lprint "Quantity” ; tab(87) ; "Vendor" 

16770 for w% ; l to 100: lprint : next : lprint 
16790 return 

16810 ropart: rem print re-order part ************************************* 

16830 lprint record% ; tab(8 );part$;tab(27); desc$ ; tab(75) ; 

16850 lprint using fi$;qn;tab(87);ven 
16870 return 

16890 turn: rem turn main tttttttttttttttttttttttttttttttttttttttttttttt 
16910 clearw 2 : gotoxy 0,0:?"Turn Report" : record%=l ; temp%= 1 :x%=0 
16930 input "Enter Inventory Prefix" ;prf $ : if len(prf$)<l then goto main 
16950 ? "Clear Totals ?” ; :xx%-inp(2) : ?chr$(xx%) 

16970 f ile$-prf $+" . inv" :0PEN "R",#l,file$,147: gosub invfld 

16990 lprint chr$(18) ; "Inventory Prefix ";prf$;" Turn Report";" Date ";date$; 

17010 lprint tab(60) ; "page" ; temp%: lprint chr$( 15) 

17030 gosub tnheader 

17050 get #1 , record% : gosub convert 

17070 if lef t$(part$,2)=" " and left$(desc$,2):" " then close ttl : goto tntot 
17090 gosub tnpart 

17110 if xx%:89 or xx%=121 then sold=0 : tds=0 : gosub seti nv : pu t tl, record* , 

17130 record%=record%+l :x%=x%+l 

17150 if x%>54 then x%=0 : temp%= temp%+ 1 : lprint chr$(12);:goto 16990 
17170 goto 17050 

17190 tnpart: rem turn report part tttttttttttttttttttttttttttttttttttttttt 
17210 lprint record*;tab(8);part$;tab(27);desc$;tab(70); 

17230 lprint using fi$;sold;tab(82); : lprint using fd$;sold*cost;tab(96); 

17250 lprint using f d$; tds; tab( 110) ; : lprint using f d$; tds-(sold*cost) 

17270 tcost=tcost+(sold*cost) : tret= tret+tds 
17290 return 

17310 tnheader: rem turn report header tttttttttttttttttttttttttttttttttttt 
17330 lprint "Item Part Number" ; tab(27) ; "Description" ;tab(76) ; 

17350 lprint "Sold" ; tab(92) ; “Cost "; tabf 104 ); "Amount" ; tab( 118 );" Prof i t” 

17370 for w* : l to 125 : lprint : next: lprint 
17390 return 

17410 tntot: rem finish turn report *************************************** 

17430 lprint chr$(18);chr$(12) 

17450 lprint "Total Cost of Goods Sold" ; : lprint using f d$ ; tcost 

17470 lprint "Total Amount Sold " ; : lprint using f d$; tret 

17490 lprint "Gross Profit " ; : lprint using f d$; tret-tcost 

17510 lprint chr$(12):goto main 

17530 sales: rem sales reports tttttttttttttttttttttttttttttttttttttttttttt 
17550 clearw 2 : gotoxy 0 , 0 : ? "Sales Reports " : color 2 
17570 gotoxy 0,2:?"i":?"2":?"3":?:?"4" 

17590 color l:gotoxy 2,2:?"Salesperson":gotoxy 2, 3: ?"Period" 

17610 gotoxy 2,4:?"Annual" 

17630 gotoxy 2, 6 : ? " Return to Reports Menu" 

17650 x%=inp(2) : ?chr$(x%) :x%=x%-48: if x%<1 or x%>3 then goto main 
17670 ? "Clear Totals ? " ; : temp%=inp(2 ) : ?chr$( temp% ) 

17690 on x* goto 17730,17910,17910 



17710 goto main 

17730 Iprint chr$(18) ; "Salesperson Report - Date-" ;date$ ; 

17750 if temp%:89 or tempt: 121 then Iprint “ Totals cleared"; 

17770 Iprint: Iprint 

17790 for w%=l to 30:if sp( w% )=0 then goto 17830 

17810 Iprint "Salesperson #" ;w%; tab(50) ; : Iprint using fd$;sp(wt) 

17830 next : if temp%<>89 and temp%<>121 then goto 17890 

17850 for w%=l to 30:sp(w%)=0: next 

17870 gosub wrsrec 

17890 Iprint chr$(12):goto main 

17910 Iprint chr$(18) ; "Sales Report - Date- " ; date$ ; 

17930 if temp%:89 or temp%= 121 then Iprint " Totals cleared"; 

17950 Iprint: Iprint 

17970 Iprint "Sales this period";tab(50);:lprint using fd$ ;ptd 
17990 Iprint "Sales this year " ; tab(50 ) ; :lpnnt using fd$;ytd 
18010 Iprint “Taxable sales' ; tab(50) ;: Iprint using fd$;ttd 
18030 Iprint: Iprint “Tax Collected'' 

18050 Iprint : for w$=0 to 9 

18070 Iprint "Rate Key #";w%;tab(50);:lprint using fd$; tax(w%) : tcost=tcost+tax(w%) 

18090 next : Iprint tab(50) ;“=============" 

18110 Iprint "Total tax collected" ; tab( 50 );: Iprint using f d$ ; tcos t 

18130 if temp%<>89 and temp*<>121 then goto 18210 

18150 for w*=0 to 9: tax(w%)-0: next 

18170 ttd=0:ptd=0: if x%:3 then ytd=0 

18190 gosub wrsrec 

18210 Iprint chr$(12):goto main 

18230 srttit: srt$:"Number":if xxt=2 then srt$:''Name" 

18250 if xx%=3 then srt$:”City" 

18270 if xx % z 4 then srt$:"State" 

18290 if xx%:5 then sr t$: " Zip Code" 

18310 return 

18330 vlist: rem vendor list 

18350 clearw 2 : gotoxy 0,0:? "Vendor Lists":x% r 0:temp%:l:record%=l 
18370 input "Enter Prefix" ; prf $ : i f len(prf$)<l then goto main 
18390 clearw 2:?”Sort By" : ?"l=Vendor Number";?''2:Name" 

18410 ?“3=City":?"4=State":?"5=Zip Code" : ?"6:Exit“ 

18430 input "Enter Choice" ; tempi : xx%=val ( tempi) 

18450 if xx%< 1 or xx%>6 then goto 18390 
18470 gosub srttit: if xx%: 1 then goto 18970 
18490 if xx% ; 6 then goto main 

18510 file$:prf$+".ven":0PEN "R" , #2 , f ile$ , 180 : gosub venfld 
18530 get #2, record% : srt$( record^) = " 

18550 if xx% ; 2 then lset srt$( record%)=tl$ 

18570 if xx%:3 then lset srt$(record%)=t4$ 

18590 if xx%:4 then lset srt$(record%):t5$ 

18610 if xx%- 5 then lset sr t$(record%)- t6$ 

18630 if left$(tl$,2):“ " and lef t$( t5$ , 2) = " " then close #2:goto 18670 

18650 record%=record%+l :goto 18530 

18670 record%=record%-l :acc%-record%: z%=l :gosub srt 

18690 Iprint chr$(18) ; “Vendor List ";prf$;" Sorted 8y " ;srt$; “ Date “;date$; 

18710 Iprint tab(60) ; "page" ;temp%: temp%: temp%+l 
18730 Iprint chr$( 15) :x%=0 

18750 file$:prf$+“.ven":0PEN " R ” , #2 , f i le$ , 180 : gosub venfld 
18770 for w*:l to acc*:record*:srtt(wt) 

18790 get #2 , record% 

18810 gosub cnvrtven 

18830 Iprint record%: Iprint ven$ ; " ";vna$;" ";vna2$ 

18850 Iprint vnc$ ; " ";vns$;" ";vnz$;" ";vnct$ 

18870 x%=x%+l : if x%<20 then goto 18930 

18890 Iprint chr$(12) : Iprint chr$(18) ; “Vendor List " ;prf$; " Sorted By ";srt$;" Date ";date$ 
18910 Iprint tab(60) ; "page" ; temp%: temp%:temp%+l : Iprint chr$( 15) :x%=0 
18930 next 

18950 close #2: Iprint chr$(18);chr$(12):goto main 

18970 Iprint chr$(18) ; "Vendor List ";prf$;" Sorted 8y ";srt$;“ Date ";date$; 

18990 Iprint tab(60) ; "page" ;temp%: temp%=temp%+l 
19010 Iprint chr$f 15) :x%:0 


19030 if recorded then recorded 

19050 file$:prf$+\ven":OPEN "R" , #2 , f i le$ , 180 : gosub venfld 

19070 get #2,record% 

19090 gosub cnvrtven:close 12 
19110 if record*<l then goto 18330 

19130 if lef t$(ven$,2)=“ ” and lef t$(vns$,2)=“ " then goto 19230 
19150 lprint record*: lprint ven$;" ";vna$;” ”;vna2$ 

19170 lprint vnc$;" ";vns$;” ";vnz$;" ";vnct$ 

19190 record*:record*+l:x*:x*+l:if x%>19 then x%-0 : lprint chr$( 12) : goto 18970 
19210 goto 19030 

19230 lprint chr$(18) ;chr$( 12) : goto main 
19250 alist: rem accounts list 

19270 clearw 2 : gotoxy 0,0: ?"Accounts List" :x%=0: tenp%=l : record*t=l 
19290 input "Enter Prefix" ;prf$:if len(prf$)<l then goto main 
19310 clearw 2:?"Sort 8y":?"l:Account Number“:?"2 : Name" 

19330 ?"3=City“:?"4=State" :?“5=Zip Code " : ? " 6=Exi t " 

19350 input "Enter Choice" ;temp$:xx*=val( tempi) 

19370 if xx%< 1 or xx%>6 then goto 19310 
19390 gosub srttit : if xx%=l then goto 19890 
19410 if xx* : 6 then goto main 

19430 file$:prf$+",aco":0PEN “R" ,#3 ,f ile$,226:gosub accfld 
19450 get #3, record% : srt$(record% ) = " 

19470 if xx% - 2 then lset srt$( record% )=t0$ 

19490 if xx* : 3 then lset srt$(record%)=t3$ 

19510 if xx% ; 4 then lset srt$(record%)=t4$ 

19530 if xx* ; 5 then lset srt$(record%)=t5$ 

19550 if lef t$(t0$,2)=" " and lef t$( t4$ , 2) = " " then close 43:goto 19590 

19570 record*=record*+l:goto 19450 

19590 record*=record*-l :acc*=record*: z*=l :gosub srt 

19610 lprint chr$( 18) ; "Accounts List ";prf$;“ Sorted By " ;srt$ ; " Date “;date$; 

19630 lprint tab(60) ; "page" ; temp%: tedtp%=temp%+l 
19650 lprint chr$(15) :x*=0 

19670 f i le$=prf $+" . aco" : OPEN "R" , #3 , f i le$ , 226 : gosub accfld 
19690 for w* ; l to acc*:record*:srt*(w*) 

19710 get 43, record* 

19730 gosub cnvrtacc 

19750 lprint record* : lprint an$;“ " ; aa$ ; " ";aa2$ 

19770 lprint ac$ ; " " ;as$ ; " ";az$;" “;act$;" ";term$ 

19790 x*-x*+l : if x*<20 then goto 19850 

19810 lprint chr$(12) : lprint chr$(18) ; “Accounts List " ;prf$; " Sorted By “;srt$;" Date ";date$; 
19830 lprint tab(60); "page"; temp*: temp*:temp*+l: lprint chr$( 15) :x%=0 
19850 next 

19870 close #3: lprint chr$(18);chr$(12):goto main 

19890 lprint chr$( 18) ; "Accounts List " ; p r f $ ; " Sorted By ";srt$;" Date ";date$; 

19910 lprint tab(60);"page";temp*:temp*:temp*+l 
19930 lprint chr$( 15) :x%=0 
19950 if record*<l then record*:! 

19970 file$:prf$+".aco":0PEN ”R“ , #3 , f i le$ , 226 : gosub accfld 
19990 get 43, record* 

20010 gosub cnvrtacc:close 43 
20030 if record*<l then goto 19250 

20050 if lef t$(an$,2)=" " and lef t$(as$,2)=" " then goto 20150 
20070 lprint record* : lprint an$ ; " ";aa$;” ";aa2$ 

20090 lprint ac$;“ ";as$;“ ";az$;" ";act$;" ";term$ 

20110 record*:recordUl:x% : xUl:if x*>19 then x%=0: lprint chr$( 12) :goto 19890 
20130 goto 19950 

20150 lprint chr$(18);chr$(12):goto main 

20170 state: rem statements mmmmmmmmmmmmnmmm 
20190 clearw 2 : gotoxy 0,0: ?"Statements" : record%=l :color 2 
20210 gotoxy 0,2:?"1":?"2":?"3 , ':?;?"4" 

20230 color l:gotoxy 2,2 : ?"A11 Accounts":gotoxy 2 , 3 : ?"0u tstanding Accounts" 

20250 gotoxy 2,4 : ?"Selected Account" 

20270 gotoxy 2,6: ?"Return to Reports Menu" 

20290 x*:inp(2);?chr$(x*):x*:x*-48:if x*<l or x*>3 then goto main 
20310 input “Enter Prefix" ;prf $: if lenfprf $)<1 then goto main 
20330 input "Account Number" .-record* 



20350 on xt goto 20390,20550,20730 
20370 goto main 

20390 if record%<l then record%=l 

20410 file$:prf$t".aco":OPEN " R" , #3 , f ile$ , 226 : gosub accfld 

20430 get #3 , record% 

20450 gosub cnvrtacc:close #3 
20470 if recordUl then goto main 

20490 if lef t$(an$,2)=“ " and left$(as$,2)-” “ then goto main 
20510 gosub 20890: record%=record%+l : goto 20390 
20530 goto main 

20550 if record%< 1 then records 

20570 file$:prf$+".aco":0PEN "R" ,#3,f i le$ , 226 : gosub accfld 
20590 get #3, record* 

20610 gosub cnvrtacc:close #3 
20630 if record*<l then goto main 

20650 if lef t$(an$,2)=“ " and lef t${as$,2)=" " then goto main 
20670 if tdt-pd< , 009 then record%=record%+ 1 : goto 20550 
20690 gosub 20890 : record%=record%+l :goto 20550 
20710 goto main 

20730 if record*<l then record%= 1 

20750 file$=prf$+". aco” : OPEN "R",#3,file$, 226 : gosub accfld 
20770 get 13, record* 

20790 gosub cnvr tacc : close #3 
20810 if record*<l then goto main 

20830 if lef t$(an$,2)=" " and lef t$(as$,2)-" " then goto main 
20850 gosub 20890 
20870 goto main 

20890 rem statement form ************************************************** 
20910 lprint chr$(18); 

20930 lprint cpy$: lprint cad$ : lprint cad2$ : lprint cmis$ ; lprint 
20950 lprint tab(35) ;chr$( 14) ; "STATEMENT" :lprint:lprint 
20970 lprint 

20990 lprint ” TO : " ; tab(43) ; "Account # ";prf$;record% 

21010 lprint an$;tab(43);”Date ";date$ 

21030 lprint aa$;tab(43);"Last invoice: " ; 1 id$ 

21050 lprint aa2$; tab(43) ; "Terms: " ; term$ 

21070 lprint ac$;", ";as$;" " ;az$: lprint act$ 

21090 lprint I”:::::::::::::::::::::::::::::::;::::: 

21110 lprint 

21130 lprint "Total Purchases" ; tab(32) ; "Total Paid" ; tab(71) ; "Balance" 

21150 for w*:l to 77 : Ipri nt : next; lprint 

21170 lprint using fd$;tdt;tab(28); :lprint using fd$;pd;tab(64); 

21190 lprint using fd$; tdt-pd: lprint chr$( 12) 

21210 return 

21230 vlabel: rem vendor mail labels ************************************** 
21250 clearw 2 : gotoxy 0,0: ?"Vendor Labels”:record%-l:color 2 
21270 gotoxy 0,2: ?’T : ?”2“ : ? : ? "3" 

21290 color l:gotoxy 2 , 2 : ? “ A 1 1 Vendors" : gotoxy 2,3:? "Selected Vendors" 

21310 gotoxy 2,5: ?"Return to Menu" 

21330 x%^inp(2) : ?chr$(x%) :x%=x%-48: if xUl or x%>2 then goto main 
21350 input "Enter Prefix" ;prf $ : if len( prf $ ) < 1 then goto main 
21370 input "Vendor Nu(nber ";record%:z%=record%:if record%< 1 then goto main 
21390 input "Lines per Label " ; temp%: if x%:2 then goto 21890 
21410 clearw 2:?"Sort 8y" : ?"l=Vendor Number":?"2:Name" 

21430 ?"3:City":?"4=State” :?"5=Zip Code” : ?"6=Exit” 

21450 input "Enter Choice" ; tempi : xx%=val ( temp$) 

21470 if xxUl or xx$>6 then goto 21410 
21490 if xx%- 1 then goto 21890 
21510 if xx%-6 then goto main 

21530 file$:prf$+".ven":0PEN " R” , #2 , f i le$ , 180 : gosub venfld 
21550 get #2 , record% ; sr t$( record% ) = " 

21570 if n%-2 then lset srt$( record%)- tl$ 

21590 if xx%-3 then lset srt$(record$):t4$ 

21610 if xx%=4 then lset srt$(record%)=t5$ 

21630 if xxl ; 5 then lset srt$(record%) = t6$ 

21650 if left$(tl$,2):'' " and lef t*f t5*.2) = “ “ then close i?:on to mqn 


21670 record%=record%+l : goto 21550 

21690 record%=record%-l : acc%=record% : gosub srt 

21710 f ile$-prf $+" . ven" :0PEN " R" , #2 , f i le$ , 180: gosub venfld 

21730 for w%=z% to acc%:r8cordt=srt%(w%) 

21750 get #2 , record% 

21770 gosub cnvrtven 

21780 if lef t$(vns$,2)=" " then goto 21850 

21790 lprint ven$ : lprint vna$ : lprint vna2$ : lprint vnc$;vns$;vnz$ 

21810 lprint vnct$ 

21830 for ww%=l to temp%-5 :lprint:next 
21850 next 

21870 close #2 : goto main 

21890 file$-prf$+",ven":0PEN ”R" ,t2,file$,180:gosub venfld 
21910 get #2, record*. 

21930 gosub cnvrtven 

21950 if record%< 1 then close #2 : goto main 

21970 if lef t$(ven$,2)=" " and lef t$(vns$, 2)=" " then close #2: goto main 

21980 if lef t$(vns$ , 2) = “ “ then goto 22050 

21990 lprint ven$ : lprint vna$ : lprint vna2$ : lprint vnc$;vns$;vnz$ 

22010 lprint vnct$ 

22030 for w*=l to temp%-5 : lprint : next 

22050 if x%=l then record%=record%+l :goto 21910 

22070 close #2: goto vlabel 

22090 alabel: rem account labels ****************************************** 
22110 clearw 2 : gotoxy 0,0:? "Account Labels" : record%=l :color 2 
22130 gotoxy 0,2:?‘T:?"2":?“3“:?:?“4" 

22150 color 1 : gotoxy 2 , 2 : ? ” A 1 1 Accounts" : gotoxy 2,3:? "Selected Accounts" 
22170 gotoxy 2 , 4 : ? ”0u tstanding Accounts" : gotoxy 2 , 6 : ? "Re turn to Menu" 

22190 x%=inp(2) : ?chr$(x%) :x%=x%-48: if x%<l or x$>3 then goto main 

22210 input "Enter Prefix" ;prf$: if lenfprf $)<1 then goto main 

22230 input "Account Number " ; record% : z%=record% : if recordUl then goto main 

22250 input "Lines per Label " ; temp% : if x%=2 or x$:3 then goto 22750 

22270 clearw 2 : ? "Sort 8y " : ? " 1 ^Account Number":?”2 : Name" 

22290 ?"3=City" : ?"4=State” : ?”5=Zip Code”:?"6--Exit" 

22310 input "Enter Choice " ; temp$ : xx%=val ( temp$) 

22330 if xx%< 1 or xx%>6 then goto 22270 
22350 if xx% - 1 then goto 22750 
22370 if xx% : 6 then goto main 

22390 file$:prf$+".aco“:0PEN "R",t3,file$,226:gosub accfld 
22410 get #3, record%:srt$(record%)=” 

22430 if xx%-2 then lset srt$( record% ) = t0$ 

22450 if xx% ; 3 then lset srt$( record% ) = t3$ 

22470 if xx%:4 then lset srt$( record% ) = t4$ 

22490 if xx%:5 then lset srt$( record^) = t5$ 

22510 if lef t$( t0$ , 2)=“ " and lef t$( t4$ ,2)=” " then close #3 : goto 22550 

22530 record%:recordUl:goto 22410 

22550 record%=record%-l :acc%=record%:gosub srt 

22570 f ile$-prf$+“ .aco " :0PEN “R" ,#3,f l le$ , 226 : gosub accfld 

22590 for w$:z* to acc%: record%=srt%(w%) 

22610 get #3 , record^ 

22630 gosub cnvrtacc 

22640 if lef t$(as$,2)=" " then goto 22710 

22650 lprint an$ : lprint aa$ : lprint aa2$ : lprint ac$;as$;az$ 

22670 lprint act$ 

22690 for wm%- 1 to temp%-5: lprint:next 
22710 next 

22730 close i3:goto main 

22750 file$-prf$+".aco”:0PEN "R" , #3 , f i le$, 226 : gosub accfld 
22770 get t3, record% 

22790 gosub cnvrtacc 

22810 if recordKl then close #3: goto main 

22830 if lef t$(an$ , 2) = “ “ and lef t$ ( as$ , 2 ) = " " then close #3 : goto main 
22840 if lef t$(as$,2)=" " then goto 22930 
22850 if y,%-Z and tdt-pd< . 009 then record%-record%+l : goto 22770 
22870 lprint an$: lprint aa$: lprint aa2$:lprint ac$;as$;az$ 

22890 lorint act* 


22910 for w%=l to temp%-5 :lprint:rtext 

22930 if x%= 1 or xU3 then record%=record%+l : goto 22770 

22950 close #3:goto alabel 

22970 f indpart : rem find part number ++++++++++++++4+++++++++4+++++++++++++ 

22990 file$=prf$+".inv":0PEN "R",#l,file|,147:gosub i nvf Id : record%= 1 
23010 ckl$ : ” " : lset ckl$=temp$ 

23030 get #1 , record% 

23050 if lef t$(t0$,2)=“ " and left$(tl$,2)-“ " then record%=0 : goto 23090 
23070 if ckl$ot0$ then record%=record%+l : goto 23030 

23090 gosub convert r close il:on rf lag% goto 1830 ,main , 4070, 10470, 13190, 12150,23570 
23110 findac: rem find account ++++++++++++++++++++++++++++++++++++++++++++ 

23130 file$=prf$+” . aco" : OPEN " R" , #3 , f i le$ , 226 : gosub accfld 
23150 if recordUl then records 
23170 get #3 , record% 

23190 if lef t$ ( t0$ , 2 ) = " " and lef t$(t4$,2) = " " then record%=0 : goto 23230 
23210 xUinstr(0,t0{, tempi): if xUO then record%=record%+l :goto 23170 
23230 gosub cnvrtacc:close #3:on rf lag% goto 1530,11370, 13590, main, main, main 
23250 findven: rem find vendor +++++++++++++++++++++++++4++++++++++++++++++ 

23270 f ile$-prf$+" .ven" :0PEN ' R" , #2 , f i le$ , 180 : gosub venfld 
23290 if recordUl then record%= 1 
23310 get #2, record% 

23330 if lef t$(tl$,2)=" ” and left$(t5$,2)-“ " then record%=0 :goto 23370 
23350 x%=instr(0,tl$, temp$) : if xUO then record%=record%+l :goto 23310 
23370 gosub cnvrtven : close #2:on rf lag% goto 10910, 11850, main, main, maintain 
23390 plabel :Rem price labels****************************************** 

23410 clearw 2 : gotoxy 0,0:?" Part Labels" 

23430 input "Enter Preifx" ;prf $: if len(prf$)<l then goto main 
23450 input "Enter Item Number" ; record% : temp%-record% 

23470 if temp%< 1 then input "Enter Part Number" ; tempi :rf lag%-7 : goto findpart 

23490 if recordUl then recordUl 

23510 file$-prf$+".inv":0PEN T,»l,file$,147:gosub invfld 

23530 get #1 , records 

23550 gosub convert:close #1 

23570 if recordUl then goto plabel 

23590 clearw 2:gosub invscngosub prinv 

23610 ? " Is this the one?":xUinp(2) 

23630 if xU>89 and xU>121 then goto plabel 

23650 input "How many labels" ; hm 

23670 input "Sale Price" ; t0$ : pe=val ( t0$ ) 

23690 if pe<0 then pe:price-int((abs(pe)/100*price)*100)/100 

23710 if len( t0$) <1 then pe^price 

23730 ?" Price" ;; ’using fd$;pe 

23750 gotoxy 29 , 17 : ? " Is this correct?"; :xUinp(2) 

23770 if xU>89 and xU>121 then goto plabel 
23790 for w=l to hm 

23810 lprint chr$(15);prf$; record%; tab(25) ; : lprint using fd$;price 

23830 lprint desc$ : lprint part$ ; tab(30) ; date$ : lprint cpyl 

23850 if pe^price then lprint : goto 23890 

23870 lprint chr$(18); "Special " ;tab(15);:lprint using fd$;pe 

23890 lprint chr$( 18) : next 

23910 goto plabel 

23930 lockout: rem lockout system ************************************** 

23950 clearw 2: input "Enter Unlock Code"; tempi 

23970 clearw 2:? "System Locked" : input "Unlock Code" ;uc| 

23990 if uclotempt then goto 23970 
24010 goto main 

24030 srt: rem srt routine **************************************** 

24050 for xUzt to record^ 

24070 srt%(x%)=x%: temp$= "}}}}} " 

24090 for wUzt to record^ 

24110 if srt$(w%)=“###" then goto 24150 

24130 if srtl(w%)<templ then srt%(x%)=w%: temp$*srt$(w%) 

24150 next 

24170 srt$(srt%(x%))=”*#»" 

24171 next : return 

24172 expenses: rem expense routine ************************************* 


24173 clearw 2 : ? " 1 - Inventory Purchases 16- Pension & Profit Sharing" 

24174 ?" 2 - Bad Debts 17- Rent” 

24175 ?"3 - Bank Service Charges 18- Repairs" 

24176 ?"4 - Auto Expenses 19- Supplies" 

24177 ?"5 - Commissions 20- Taxes" 

24178 ?"6 - Depletion 21- Travel & Entertainment" 

24179 ?"7 - Dues & Publications 22- Utilities" 

24180 ?“8 - Employee Benefits 23- Wages" 

24181 ?"9 - Freight 24- Advertising" 

24182 ?” 10- Insurance 25- Misc. a" 

24183 ? " 1 1 - Mortage Interest 26- Misc. b" 

24184 ? " 12- Other Interest 27- Misc. c“ 

24185 ?"13- Laundry & Cleaning 28- Misc. d" 

24186 ? " 14- Legal & Professional Services 29- Print Report" 

24187 ? " 15- Office Expenses 30- Exit" 

24188 ? : ? "Last Entry : I tem" ; xx% ; rprint using fd$;pe 

24190 ? : input "Enter Choice ” ; tempi : xx%=val ( tempi) 

24191 if xx%< 1 or xx%>30 then goto expenses 

24192 if xx%- 30 then goto exitexp 

24193 if xx%=29 then goto exprpt 

24195 input "Enter Amount" ; tO$:pe=val ( t0$) : if len(tO$)<l then goto expenses 

24197 gotoxy 29, 19 : ?" Is this correct?";:x%=inp(2) 

24198 if xU>89 and xU>121 then pe=0 : xx%=0:goto expenses 

24199 c(xx%)=c(xx%)+pe;c(0)=c(0)+pe:goto expenses 

24200 exprpt: rem Expense Report tttttttttttttttttttttttttttttttttttttttt 

24201 lprint "Expense Report ";date$:lprint 

24202 lprint "1 - Inventory Purchases" ;tab(60) ; : lprint using fd$;c(l) 

24203 lprint "2 - 8ad Debts" ;tab(60); :lprint using fd$;c(2) 

24204 lprint “3 - 8ank Service Charges" ; tab(60) ; : lprint using fd$;c(3) 

24205 lprint "4 - Auto Expenses” ;tab(60);:lprint using fd$;c(4) 

24206 lprint “5 - Commissions" ; tab(60) ; : lprint using fd$;c(5) 

24207 lprint "6 - Depletion" ;tab(60); :lprint using fd$;c(6) 

24208 lprint "7 - Dues & Publications";tab(60);:lprint using fd$;c(7) 

24209 lprint "8 - Employee Benefits" ; tab(60) ; : lprint using fd$;c(8) 

24210 lprint "9 - Freight" ;tab(60); :lprint using fd$;c(9) 

24211 lprint “10- Insurance" ; tab(60) lprint using fd$;c( 10) 

24212 lprint "11- Mortage Interest'*; tab(60) ; : lprint using fd$;c(ll) 

24213 lprint ”12- Other Interest" ;tab(60); :lprint using f d$ ;c( 12) 

24214 lprint "13- Laundry & Cleaning" ; tab(60) ; : lprint using f d$;c( 13) 

24215 lprint “14- Legal & Professional Services";tab(60);:lprint using f d$;c( 14) 

24216 lprint "15- Office Expenses" ;tab(60);:lprint using f d$;c( 15) 

24217 lprint "16- Pension & Profit Sharing" ; tab(60) ; : lprint using f d$ ;c( 16) 

24218 lprint "17- Rent" ; tab(60) lprint using fd$;c(17) 

24219 lprint "18- Repairs" ;tab(60);:lprint using fd$;c( 18) 

24220 lprint "19- Supplies" ;tab(60) ; : lprint using f d$;c( 19) 

24221 lprint "20- Taxes”;tab(60); ilprint using fd$;c(20) 

24222 lprint "21- Travel & Entertainment" ; tab(60) lprint using fd$;c(21) 

24223 lprint "22- Utilities";tab(60);:lprint using fd$;c(22) 

24224 lprint "23- Wages" ;tab{60); :lprint using fd$;c(23) 

24225 lprint "24- Advertising" ;tab(60); :lprint using fd$;c(24) 

24226 lprint "25- Misc. a" ; tab(60) ; : lprint using f d$ ;c( 25) 

24227 lprint "26- Misc. b" ;tab(60) lprint using fd$;c(26) 

24228 lprint "27- Misc. c" ; tab(60) ; : lprint using fd$;c(27) 

24229 lprint ”28- Misc. d" ; tab(60) lprint using fd$;c(28) 

24230 lprint: lprint "Total ” ; tab(60) ; : lprint using f d$ ; c( 0) : lprint chr$( 12) 

24231 clearw 2 : ? "Clearing Expense totals will zero all expenses. " : ? " C 1 e a r Totals (V or N) 

24232 x*=inp(2):if x%<>89 and x%<>121 then goto exitexp 
24235 ? "CLEARING EXPENSE TOTALS" :f or w%:0 to 28 :c(w%) =0 : next 

24240 exitexp: rem Save & Exit Expense routine ttttttttttttttttttttttttttttt 

24241 open "0", #4, "expense.dat" 

24242 for w%=0 to 28:write #4 ,c(w%) : next 
24245 close #4 : goto main 

24260 if erl= 14590 then close tl : resume invtot 

24261 if erl:1790 then recordS-0:resume 1810 
24270 if er 1-4030 then record%:0: resume 4050 
24290 if erl=10430 then record$:0:resume 10450 



24310 if erl=12110 then record%=0: resume 12130 

24330 if erl=13150 then record%-0: resume 13170 

24350 if erl = 1490 then record%=0:resume 1510 

24370 if erl=4390 then record%=0 : resume 4410 

24390 if erl=10870 then record%:0:resume 10890 

24410 if erl=7410 then resume 7450 

24430 if erl=11330 then record*=0: resume 11350 

24450 if erl-11810 then record*^: resume 11830 

24470 if er 1= 13550 then record^O: resume 13570 

24490 if erl-19070 then record%-0 : resume 19230 

24510 if erl =19990 then record*=0: resume 20150 

24530 if erl=20430 then record^O: resume 20450 

24550 if erl=20590 then record%-0:resume 20610 

24570 if erl=20770 then record%-0: resume 20790 

24590 if erl =21910 then record*=0: resume 21930 

24610 if erl=7670 then resume 7710 

24630 if erl=22770 then record%=0:resume 22790 

24650 if erl=23530 then record%=0: resume 23550 

24670 if erl=7930 then resume 7970 

24680 if erl=14961 then close #1: resume 14966 

24690 if erl =15090 then close It 1 : resume invtot 

24710 if erl-15370 then close tl:resume invtot 

24730 if erl=16170 then close ttl : lprint chr$(18);chr$(12): resume main 

24750 if erl = 16590 then close # 1 : Ipr i n t chr$(18);chr$(12):resume main 

24770 if erl=17050 then close ttl : resume tntot 

24790 if erl=23030 then recordl>-0: resume 23090 

24810 if er 1=23170 then record$ ; 0:resume 23230 

24830 if er 1=23310 then record%:0:resume 23370 

24850 if erl>10150 and er 1 < 10290 then close tt4 : resume syssetup 

24870 if erl=9150 or erl =9261 then resume syssetup 

24875 if erl > 1 170 and erl< 1 183 then resume fclose 

24890 if erl >9150 and erl<9270 then close tt4 : resume syssetup 

24910 if erl=14130 then close ttl : resume 14230 

24930 if erl=15710 then close #1 : resume 15810 

24950 if erl = 18530 then close #2 : resume 18670 

24970 if er 1 = 19450 then close #3 : resume 19590 

24990 if erl=21550 then close #2:resume 21690 

25010 if erl-22410 then close #3; resume 22550 

25030 if err=57 then record%=0 : resume main 

25050 resume main 


